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EDTSLSUB = SUBSTITUTE in one Line of text 1o~300" 138% 93:90:48 VAX-11 Bliss-32 ets Page 1 
14-Sep-1984 12:25:4 DISKSVMSMASTER: CEDT.SRCJLSUB.BLI;1 (1) 
H 1 001 ZTITLE “EDTSLSUB = SUBSTITUTE in one Line of text’ : 
; § oes MODULE EDTSLSUB ( : suasTITUTE in one Line of text ; 
5 i st JDENT = *v04-000' ! File: LSUB.BLI] Edit: JBS1008 : 
3 a : 
; 5 4'¢4 ! BEGIN : 
: 8 0097 1 Pee ee ee eee eRe HAHAHAHAHAHA AHHH HKeeAeeeeeReHeKeteeeeeeeeeeeeeeeees 4 
3 8 0 1 !* 3 
; 9 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
7} 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
; 1} id : :* ALL RIGHTS RESERVED. * : 
5 'e . | : 
: if 0018 1 !* THIS SOFTWARE iS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
: 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ” > 
; 15 0015 1 !* CLUSI OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 16 8018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR CTHERWISE MADE AVAILABLE TO ANY * . 
$ 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
: 18 0018 lis TRANSFERRED. . | : 
$ 'e cy | > 
3 20 Ooss 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; 0022 1 is CORPORATION. : | ; 
5 i® ® e 
: 24 $034 1 !'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * | : 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
: & 0026 1 !* * : 
. > ar 0027 1 !* * ; 
g 28 0028 1 See eee RRA AAAAAAAAAAAAAAAAAAAAEAAAAAAAETAAAAAEAOKAAAKeAAAKeAAKeeAKAKeeeet | P+ 
; 9 0029 1! : 
3 $6 5080 1 : 
i: ae 0031 1 !+¢ : 
3 2 003¢ 1 ! FACILITY: EDT -- The DEC Standard Editor : 
3 3 0033 1! ; 
3 4 0034 1 ! ABSTRACT: 3 
; 0035 1! ; 
; «36 0036 1! This module scans a line of text for a match with the : 
; a 0037 1! search string. If found, it performs the substitution. : 
3 $ 0038 1! This is used by the Line mode commands SUBSTITUTE . 
3 4 site : and SUBSTITUTE NEXT. : 
; a3 re : : ENVIRONMENT: Runs at any access mode - AST reentrant : 
; ¢3 $068 1 ! AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 | : 
3 44 bes 1! : 
: 4 45 : MODIFIED BY: : 
: 67 hy 1 ! 1-001 = Original. DJS 30-JAN-1981. This module was created b : 
; «6448 048 1! extracting the routine SUBSTITUTE from the module EXEC.BLI. : 
; «649 0049 1 ! 1-002 - DJS 16-MAR-1981. Before the SUBSTITUTE search string is : 
: 29 50 1! compared to part of a text Line, an additional test was added 3 
3 1 oy a ¢ to ensure that there is enough text left on the Line to make : 
3 26 26 1! a match possible. Previously, it was possible for data beyond 3 
3 053 1! the end-of-Line to be inclu ed in the string match. 3 
F 4 54 1 ! 1-003 = Regularize headers. JBS 20-Mar-1981 : 
; 5 55 1 ! 1-004 = Use the new message codes. JBS 06-Aug-1981 : 
; $ B26 1 ! 1-005 = Force cursor to remain positioned less than 256 characters | : 
; eee from the beginning of the Line. Previously,, string substitution : 
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¢ leave, the cursor after the end of the Line. 
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Vv Declarations If $e0-1984 93:98:28 DISKSVMSMASTER: cED BE sRCSLsuB. BLI;1 (23 
| 

; 68 1 ZSBTTL ‘Declarations’ | 
; ¢ 1! 
5 08 } : TABLE OF CONTENTS: 
: 70 = 
; g) } REQUIRE ‘EDTSRC:TRAROUNAM'; 
3. 1 FORWARD ROUTINE 
; a ! EDTSSSUB_NXT : NOVALUE; ! Do a substitution within one Line of text 
: 7 1! 
3 7 1 ! INCLUDE FILES: | 
3 78 1! 
: 79 1 
b4 + : REQUIRE ‘EDTSRC:EDTREQ'; 
; 8 1! | 
H 8 1 ! MACROS: 
4 84 1 ! | 
> ae 1! NONE 
> 86 ‘7 
; 87 1 ! EQUATED SYMBOLS: 
; 8 . % | 
; «89 1% NONE 
; 1! 
: 91 | OWN STORAGE: 
: 9 1 i NONE | 
3 94 1! 
s 4 : EXTERNAL REFERENCES: 
: 97 : In the routine 
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ZSBTTL ‘EDTSSSUB_NXT = substitute in one Line of text’ 


vee-bit 


GLOBAL ROUTINE EDTSSSUB_NXT ( ' substitute in one Line of text 
NGL : = just do one substitution 
START Bos ' start searching here 


'ee 
 FemCree, DESCRIPTION: 
Do substitutions in one Line of text. This routine scans the current 
Line of text, starting at the character qerttes 7 Ha POS, looking 
for a string that matches the search str s“ found, that string 
is replaced by the subsitute string. If the SINGLE ta is on, 
it returns after one substitution, otherwise all matches in the Line are substituted. 
! {FORMAL PARAMETERS: \ 
SINGLE 1 = just do one substitution 
START_POS where to start the search 
IMPLICIT INPUTS: 


OTST CUR_BUF 


D 
D 
DT$$T~SUB_STR 
DI$$G_SUBSTRLEN 
DTSSA-W 

DT$$G “ENE. aRvaulT | 
p “SUBCNT | 


G- 
$G_EX XE <SBITS 
EDT$$G_EXCT_MATCH 
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B708 EDT$$G_EXE_SUBCNT 
0710 {ROUTINE VALUE : 
0711 
fats NONE 

71 | 
0714 SIDE EFFECTS: ; 
0715 
o7i¢ NONE 
071 
aris | 
071 
4 Y BEGIN 

7 § shy ey oy pf 

7 MSG, 

724 EDT 3p PUT CH : NOVALUE, 

725 EDTSSPROC_QRYQAL, 
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- STITUTE in one Line of text 16-Sep-1984 01:00:4 VAX=11 Bliss<32 V4.0-74 _, Page 5 | 
rie EDT e sue nxtees substitute Sn one Line of text 14-Sep- 3B 93:99:48 DLEKSVMGHASTERSCEDT SRCSLSUB.BLI:1 (3). 
. y $ 7 § EDTSSRPL_LN, 
- | 7 EDTSS$TY_CURLN, : 
; ! Compare strings of equal length 
; i : : EOTSSARR-ENCHG : NOVALUE; : Mark the Line changed in the screen data base 
; 161 73} EXTERNAL 
; DTS$A_CUR_BUF : REF TBCB_BLOCK 
; 188 ; ‘ EDISST7LN BUF : VECTOR E558 BYTE), 
3 164 734 EDTS$G_LN-LEN 
: 165 735 EDT$$G_SEA_STRLEN, 
; 166 7 $ EDTSST_SEA_STR, 
; 167 7 EDTS$T_SUB_STR, 
: 168 736 EDT$$G_SUB-STRLEN | 
: 169 739 EDTSSA-UK CN : REF LIN_BLOCK, 
: iF ore ED TSSCTEXETSUBCNT.” ' No. of substitutions done. 
3; (17 074 EDT$$G_EXE SBITS, i The options switches, 
: 138 ares EDTS$G_EXCT_MATCH; ! Type of string matching 
; 178 0745 MESSAGES ((LINEXC255)); 
: 8 oreo LOCAL | 
; g ! Pointer to the original Line 
i OS Bs pret eee Se ere Ne bs reel 
: 180 0750 OLD-LEN, i Length of original Line 
: 181 0751 REPPOINT ! Pointer to the replacement strin 
: 18 075 NEW POS, i Character position after last subs. 
; 188 Ek CHANGED, ! Flag indicating this line was changed. 
> 184 0754 2 THIS_CHAR_CHANGED; ! Flag indicating this character was changed 
a Me. | 
: 189 Let Get a local pointer to the Line and its length; | 
"OLD = EDTSSA WK LN CLIN_TEXTI; | 
; 190 O60 - OLD_LEN = .EBTSSA_WK_LN CLIN_LENGTH); | 
; 192 O76 i Initialize the Length of the new Line, changed flag and position of | 
> 193 ares ' Last SUBSTITUTE. | 
; 198 ores " EDT$$G LN_LEN = 0; | 
: 196 0766 CHANGED ="0; 
: 197 3524 7 NEW_POS = 0; 
: 199 0769 Get a pointer to the end of the old Line. 
; ot 4am. 3 END_LINE = CHSPTR (.OLD, .EDTSSA_WK_LN CLIN_LENGTH)); 
: 08 O778 Loop until either we finish the Line or the new Line exceed 255 chars. 
; 86 ies WHILE at. 0L8 LSSA .END_LINE) AND (.EDTS$G_LN_LEN LSS 256)) DO 
: $08 7? THIS. CHAR_CHANGED = 0; 
: 19 +80 i” Look for a match if the position is greater or equal to 
+ 211 781 ' start position. 
: 212 0782 !- 
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= SUBSTITUTE in one Line of text 1 
-NXT = substitute in one Line of text 1 


IF ((,EDTS$G_LN_LEN GEQ .START_POS) AND ! 
((.OLD +”. EBTS$$G_SEA STRLEN) LEQA .END_LINE) AND ! 
( NOT .EDTS$G_EXE QRYQUIT) AND ' 

nen’ NOT (.SINGLE AND .CHANGED))) 


IF _EDTSSSTR_CHP (.OLD, EDTSS$T_SEA_STR, .EDTS$G_SEA_STRLEN, .EDT$$G_EXCT_MATCH) 


ce ne. (OLD, .END_LINE) 
1 BEGIN 


! A match was found. Set ae indicating that a change has been 
made and increment the count. 


bey be es ee 1; 
1 EDTSS$G_EXE_SUBCNT = .EDTS$G_EXE_SUBCNT + 1; 
; Mark the Line as changed in the screen data base. 
- EDTSSMRK_LNCHG (SCR_EDIT_MODIFY, .EDTS$$G_LN_LEN); 
; Get a pointer to the replacement string. 
i REPPOINT = EDTS$T_SUB_STR; 
; Move the replacement string into the new Line buffer. 


INCR J FROM 1 TO .EDT$$G_SUB_STRLEN DO 
EDTSSPUT_CH (CHSRCHAR_A TREPPOINT)); 


a NEW_POS = .EDTS$G_LN_LEN; 
Bump the old Line pointer by the length of the search string. 
Lp = CHSPLUS (.OLD, .EDT$$G_SEA_STRLEN); 


IF ( NOT .THIS_CHAR_CHANGED) 
ss BEGIN 
; No match, just copy the chararacter and continue. 
eeceern Ae (CHSRCHAR_A (OLD)); 


'¢ 
Check to see if any substitutions have been done. 
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-TITLE EDTSLSUB nt pata - SUBSTITUTE in one Line of t 
ex 
-IDENT \vV04-000\ 


EDTSLSUB = SUBSTITUTE in one Line of text 18-50 Sep-1984 VAX-11 Bliss-32 V4.0-7 Pa 7 
EDTS$SUB_NXT - substitute Sn one Line of text =30 71382 93: 98: ‘3 DISK KSVMGM MASTER: cto +°seeSusue. BLI;1 = (3) | 
40 - IF . CHANGED | 
4) THEN 
4 BEGIN 
4 '+ 
te Check for overflow of the newly constructed Line. 
4 ; 
‘3 4 IF (.EDTS$G_LN_LEN GTR 255) 
48 3 THEN 
849 4 BEGIN 
0850 4 Boissons MSG (ETS LINEXC255); 
51 4 EDTSS$G_LA_LEN = 255; 
26 ND; 
0854 '¢ 
0836 Also need to check if new cursor position would be after 255 characters. 
085 : 
0858 IF (.NEW_POS GTR 255) THEN NEW_POS = 255; 
as 
0861 i Replace the Line in the buffer, and update the position to 
peg a the position after the Last substitution. 
0864 ; EDTSSRPL_LN (EDTS$T_LN_BUF EDTSSG LN LEN); 
0865 o EDTS$A_COR_BUF CTBCB_CRAR_POS) = .NEW_POS 
O86? Unless /NOTYPE was specified, display the nee line. | 
0869 ' 
0870 IF ( NOT .EDTS$G_EXE_SBITS<OPB_NOTYP>) THEN EDTS$TY_CURLN () 
$8 re 
0874 1 END; ! of routine EDT$$SUB_NXT ! 
-EXTRN EDTSSFMT at Maes _CH 
~EXTRN EDTSSPRO ROT_Q 
-EXTRN EDTS$ SRPL “CNC "EoTss TY CURLN 
SEXTRN EDTSSSTR-CMP, EDTSSMRK =LNCHG 
-EXTRN EDTSSA_COR_BUF, EDTS$T_LN_BUF 
-EXTRN EDT$$G_LN_CEN “EDTS$G SEAT STRLEN | 
-EXTRN EDTSST~SER stk, a SUB_STR 
-EXTRN EDT$$G_SUB- STRLEN 
~-EXTRN EDTSSA_WK_CN, EDTS$G_EXE_QRYQUIT 
.EXTRN EDT$$G_EXE_SUBCNT 
-EXTRN EDTS$$G_EXE-SBITS 
~EXTRN EDTSSG-EXCT_MATCH 
-EXTRN EDTS_LTNEXC255 


| 
| 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 | 
| 
| 
| 
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EDTSLSUB - SUBSTITUTE in one Line of text 16-Sep-19 74 VAX-11 Bliss-32 V4.0-7 Page 8 
EDT$$SSUB_NXT = substitute in one Line of text 1a-Sep-1 138e 9}: 98: ‘3 DISKSVMSMASTER: CEDT. sre LSUB.BLI;1 ° (3) 
OFFC 00000 sENTRY EDT$$SuB_ NXT, Save R2,R3,R4,R5,R6,R7,RB,RI,=; 0671, 
B 000000006 9E MOVAB EDT$$G_SEA_STRLEN, R11 : 
A Seuss $8 9 03 MOVAB EDTS$G"LN_CEN, R10 : | 
9 00 D 019 MOVL EDTSSA_UK LN, RO + 0759) 
AO 9E 01 OVAB 7 (RO), OLB : 
1 60 9A 00018 MOVZBL (RO), OLD_LEN : 0760 
6A p4 Oi CLRL EDT$$G_LNZLEN + 0765 
5 7C 000 CLRO NEW POS + 0767 
57 : 9A 000 é WOVZBL (ROT, END_LINE + 0771 
57 C 000 ADDL2 OLD, END_CINE ; 
57 ; D1 00 8 1S: CMPL OLD. END-LINE + 0776 
1F B BLSSU F 
009D 31 00020 a8: BRW 3s : 
00000100 =F 6A D1 00030 3$: CMPL EDTSSG_ LN_LEN, #256 : 
F4 18 90037 BGEG 4 F 
58 04 00039 CLRL §_ THIS_CHAR_CHANGED : 0778 
08 Ac SA D1 00038 CMPL DT$SG_LN_LEN, START_POS 3 0784 
C 19 0003F BLSS ; 
50 52 68 C1 00041 ADDL3 EDTS$G SEA_STRLEN, OLD, RO + 0785 
5 50 D1 00045 CMPL RO, ENB_LINE : 
73°=«1A 90048 BGTRU 7$ ; 
6C 000000006 00 €E8 O004A BLBS § EDT$$G_EXE_QRYQUIT, 7$ + 0786 
03 04 AC €E9 00051 BLBC—COsCéSS NGLE® 4$~ + 0787 
65 56 €8 00055 BLBS CHA 7$ F 
000000006 00 DD 00058 4s PUSHL ED DTS$6. ExCT_MATCH + 0790 
6B DD 0005E PUSHL EDT$$G~SEA_STRLEN : 
000000006 09 9F 00060 PUSHAB EDTS$T~SEA-STR : 
52 DD 00066 PUSHL OLD ; 
000000006 00 04 FB 90068 CALLS 4&4, EDTSSSTR_CHP : 
48 50 £9 0006F BLBC =._«RO,. 7$ ; 
0084 8F 6B 90072 PUSHR #*M<R2,R7> : 0793 
000000006 00 02 FB 00076 CALLS #2, EDfSsPRoc QRYQAL : 
3p 50 €9 00070 BLBC ~—_ RO, F 
58 01 00 90080 MOVL #1, THIS_CHAR_CHANGED > 0800 
56 01 00 0008 MOVL #1, CHA + 0801 
000000006 00 06 00086 INCL EDT$$G_EXE_SUBCNT > 0802 
6A DD 0008C PUSHL EDT$$G~LN_CEN : 0806 
01 DD O008E PUSHL #1 F 
000000006 00 ; FB 000 CALLS #2, EDTSS$MRK_LNCHG : 
59 000000006 i 00097 MOVAB EDT$$T_SUB_STR, REPPOINT + 0810 
54 000000006 9 DO 0009 MOVL § EDTS$G7SUBSTRLEN, R4 + 0815 
D4 OOOA CLRL OJ ; 
A 11 OA BRB 5$ ; 
7E 9 9A 000A9 5$ MOVZBL (REPPOINT)+, -(SP) + 0816 
000000006 99 a. OA CALLS #1, EDTS$$PUT_CH F 
2 4 F BS 6$ AOBLEQ R4. J, 5$ F 
55 6A DO 0008 MOVL EDTS$$G_LN_LEN, NEW_POS : 0818 
52 8 CO OOOBA ADDL2 EDT$$G~SEK STRLEN, OLD : 08 : 
A f 08D 7$ LBS. _—s*THIS Sank CHANGED. 8$ : 08 
E 2 9a 000C MOVZBL (OLDJ+, -TSP) > 0831 
000000006 00 1 a ¢ CALLS #1, EDfSSPUT_CH : 
FFSB 3 CA 8$: RW 1$ : 0776 
50 56 E9 O00CD 9$: BLBC CHANGED, 12$ > 0840 
Oo00OOFF «BF 6A 01 0000 MPL FDTS$6_{N_LEN, #255 > 0847 
11 15 900 BLE $ ; 
000000006 8F DD 000D9 PUSHL #EDT$_LINEXC255 : 0850 
| 
| 
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EDTSLSUB EDTSLSUB - SUBSTITUTE in one Line of text 1% $ep-1984 01: VAX-11 Bliss-32 V4.0-74 
v04-000 EDTSSSUB_NXT = substitute in one Line of text 14 aah 2: 9: ‘3 DISKSVMSMASTER: CEDT.SRCJLSUB.BLI;1 
ween FF i BR O0or6 mov geL fess, eDisage UNCLEN 
QOOOOOFF BF 5 D1 QOEA 10$: CHL NEW. w_Pos $38. 
55 FF F OA 000k 3 MOVZBL #255 ares 
6A DD OOOF7 118: USHL EDT$$G_LN“LEN 
000000006 00 9F 0 9 PUSHAB EDTS$T LN BUF 
000000006 99 FB OOOFF CALLS #2 EDT SRPL_LN 
000000006 DO 00106 MOVL EDf$$A_CUR_BOF, RO 
Oc Ad B0 9100 MOVW NEW. POS 12(ROS 
07 000000006 00 03 £0 00111 BBS #3, EDT$$G_EXE SBITS, 12$ 
000000006 00 00 FB 00119 CALLS #0, EDT$$TY_CURLN 
04 00120 12$: RET 
; Routine Size: 289 bytes, Routine Base: _EDTSCODE + 0000 


> 35 0875 «(1 
; 06 0876 1 !<BLF/PAGE> 
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EDTS EDT$LSUB = SUBSTITUTE in one tine of text g=3e0" 4 74 VAX-11 Bliss-32_V Page 10 
bus EDTS$SUB_NXT - substitute | n one let of text 7-3e8- 138 9}: 99: ‘3 DISKSVMSMASTER: a i°seeSisus. BLI;1 . (4) 
; 2 77 +1 END ! of module EDT$LSUB 

: 305 O88 1 ane 

, 3W 0879 0 ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: EDTSCODE 289 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

3 sousenee SyYERO(§ eooccecs Pages Processing 

$ File Total idaded Percent Mapped ime 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 35 9 40 00:00.2 

: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LSUB/OBJ=0BJ$:LSUB MSRC$:LSUB.BLI/UPDATE=(ENH$:LSUB) 
3; Size: 289 code + 0 data bytes 

3; Run Time: 00:17.4 

3; Elapsed Time: OP: Ge-7 

3; Lines/CPU Min: 

3 Lexemes/CPU-Min: 8879 

$ pemety Used: 120 pages 

; Compilation Complete 
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